home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •AdventureLand• / Adventures / Battle of Britain 1 ••••• / Battle of Britain 1 еееее / card_4006.txt < prev    next >
Text File  |  1990-08-26  |  10KB  |  375 lines
  1. -- card: 4006 from stack: in
  2. -- bmap block id: 7865
  3. -- flags: 0000
  4. -- background id: 2789
  5. -- name: newDay
  6. ----- HyperTalk script -----
  7.  
  8.  
  9. on openCard  --from field bbtime..to card "black"..to here
  10.   global justVisiting,landtime
  11.   global nextDay
  12.  
  13.   if nextDay is empty then
  14.     set the cursor to 4
  15.     send "doit" to card field "effort"
  16.     set the lockscreen to false
  17.  
  18.  
  19.     set the lockScreen to true
  20.     put 1 into justVisiting
  21.     put 0 into landtime
  22.     put 7 into temp
  23.     repeat while temp <13   -- goes to tangmere add 1 for each new base
  24.       go to card temp
  25.       add 1 to temp
  26.     end repeat
  27.   end if
  28.   put 1 into nextDay --so that we don't loop through the sectors again
  29.   go to card "newDay" --will this solve update prob?
  30.  
  31.   set lockScreen to false
  32. end openCard
  33.  
  34.  
  35.  
  36. -- part 5 (field)
  37. -- low flags: 01
  38. -- high flags: 0000
  39. -- rect: left=219 top=61 right=73 bottom=291
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 20
  44. -- text size: 9
  45. -- style flags: 0
  46. -- line height: 9
  47. -- part name: newsdate
  48.  
  49.  
  50. -- part 6 (field)
  51. -- low flags: 01
  52. -- high flags: 0000
  53. -- rect: left=406 top=48 right=60 bottom=484
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 3
  58. -- text size: 9
  59. -- style flags: 0
  60. -- line height: 9
  61. -- part name: newsweather
  62.  
  63.  
  64. -- part 8 (field)
  65. -- low flags: 01
  66. -- high flags: 0000
  67. -- rect: left=10 top=160 right=178 bottom=200
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 20
  72. -- text size: 14
  73. -- style flags: 256
  74. -- line height: 16
  75. -- part name: BOMBED
  76.  
  77.  
  78. -- part 9 (field)
  79. -- low flags: 01
  80. -- high flags: 0000
  81. -- rect: left=94 top=75 right=101 bottom=217
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 65535
  85. -- font id: 20
  86. -- text size: 24
  87. -- style flags: 256
  88. -- line height: 26
  89. -- part name: HEADLINE
  90.  
  91.  
  92. -- part 10 (field)
  93. -- low flags: 00
  94. -- high flags: 0000
  95. -- rect: left=181 top=106 right=124 bottom=217
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 1
  99. -- font id: 20
  100. -- text size: 18
  101. -- style flags: 512
  102. -- line height: 19
  103. -- part name: gplanes
  104.  
  105.  
  106. -- part 11 (field)
  107. -- low flags: 00
  108. -- high flags: 0000
  109. -- rect: left=101 top=130 right=149 bottom=132
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 1
  113. -- font id: 20
  114. -- text size: 18
  115. -- style flags: 512
  116. -- line height: 19
  117. -- part name: bplanes
  118.  
  119.  
  120. -- part 12 (button)
  121. -- low flags: 00
  122. -- high flags: 0000
  123. -- rect: left=491 top=320 right=342 bottom=512
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 1013 / 1013
  126. -- text alignment: 1
  127. -- font id: 0
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: New Button
  132. ----- HyperTalk script -----
  133. on mouseUp
  134.   set hilite of button "go" of card "Map" to false
  135.  
  136.   visual wipe left slowly
  137.   go to card "Map"
  138. end mouseUp
  139.  
  140.  
  141.  
  142.  
  143. -- part 1 (field)
  144. -- low flags: 81
  145. -- high flags: 2004
  146. -- rect: left=251 top=88 right=339 bottom=449
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 0 / 0
  149. -- text alignment: 0
  150. -- font id: 3
  151. -- text size: 9
  152. -- style flags: 0
  153. -- line height: 10
  154. -- part name: effort
  155. ----- HyperTalk script -----
  156. on mouseUp
  157.   hide card field "effort"
  158. end mouseUp
  159.  
  160. on doit
  161.   global effort,weather,raid,objective,lessUs,lessEnemy,newsRaid,bbDate
  162.   global openBase
  163.   delete line 12 to 14 of card field "effort"
  164.   hide card field id 1
  165.  
  166.  
  167.  
  168.   if bbdate contains "Aug 16" then
  169.     put " No.1RCAF Hurricane Squadron to Northolt" into line 11 of card field id 1
  170.     show card field id 1
  171.   end if
  172.   if bbdate contains "aug 18" then
  173.     put " No.602 Spitfire Squadron to Tangmere" into line 11 of card field id 1
  174.     show card field id 1
  175.   end if
  176.   if bbdate contains "aug 19" then
  177.     put " No.72 Spitfire Squadron to Kenley" into line 11 of card field id 1
  178.     show card field id 1
  179.   end if
  180.   if bbdate contains "aug 26" then
  181.     put " No.41 Spitfire Squadron to Hornchurch" into line 11 of card field id 1
  182.     show card field id 1
  183.   end if
  184.   if bbdate contains "aug 27" then
  185.     put " No.79 Spitfire Squadron to Biggen Hill" into line 11 of card field id 1
  186.     show card field id 1
  187.   end if
  188.   if bbdate contains "aug 28" then
  189.     put " No.253 Hurricane Squadron to Kenley" into line 11 of card field id 1
  190.     show card field id 1
  191.   end if
  192.   if bbdate contains "aug 29" then
  193.     put " No.222 Spitfire Squadron to Hornchurch" into line 11 of card field id 1
  194.     show card field id 1
  195.   end if
  196.   if bbdate contains "aug 30" then
  197.     put " No.303 Hurricane Squadron to Northolt" into line 11 of card field id 1
  198.     show card field id 1
  199.   end if
  200.   if bbdate contains "aug 31" then
  201.     put " No.249 Hurricane Squadron to North Weald" into line 11 of card field id 1
  202.     put " No.616 Spitfire Squadron to Kenley" into line 12 of card field id 1
  203.     show card field id 1
  204.   end if
  205.  
  206.   if bbdate contains "sept 2" then
  207.     put " No.603 Spitfire Squadron to Hornchurch" into line 11 of card field id 1
  208.     show card field id 1
  209.   end if
  210.   if bbdate contains "sept 5" then
  211.     put " No.257 Spitfire Squadron to Northolt" into line 11 of card field id 1
  212.     show card field id 1
  213.   end if
  214.  
  215.   if bbdate contains "sept 8" then
  216.     put " No.229 Spitfire Squadron to Northolt" into line 11 of card field id 1
  217.     show card field id 1
  218.   end if
  219.   put bbDate into card field "newsdate"
  220.  
  221.  
  222.   if weather contains "RAIN" then
  223.     put "A WELCOME RESPITE" into card field "bombed"
  224.     put "NO NAZI" into card field "headline"
  225.   else
  226.     if newsraid contains "none" then
  227.       put "ZERO!!!" into card field "headline" of card "newDay"
  228.       put "ALL ENGLAND QUIET" into card field "bombed" of card "newDay"
  229.     else
  230.       if newsRaid contains "major" then put "MAJOR" into card field "headline"
  231.       if newsRaid contains "minor" then put "MINOR" into card field "headline"
  232.       get item 11 of objective  ---tangmere,poling,etc
  233.       put it into card field "bombed"
  234.     end if
  235.   end if
  236.   put lessUs into card field "bPlanes" --TEST
  237.   if lessUs <1 then put "no" into card field "bplanes"
  238.   put 0 into lessUs
  239.   put lessEnemy into card field "gplanes"
  240.   if lessEnemy <1 then put "no" into card field "gplanes"
  241.   put 0 into lessEnemy
  242.   put empty into newsraid
  243.   --TOMORROWS WEATHER FOLLOWS
  244.   get the random of 6
  245.   put it into temp
  246.   if weather is "rain" then put "light" into effort
  247.   put empty into weather
  248.   if temp <3 then put "CLEAR" into weather
  249.   if temp >2 and temp <6 then put "CLOUDY" into weather
  250.   if temp >5 then put "RAIN" into weather
  251.   put weather into card field "newsweather"
  252.   if weather contains "RAIN" then
  253.     exit doit
  254.   end if
  255.   put the random of 6 into temp
  256.   if weather is "clear" then
  257.     if effort is "heavy" then
  258.       put item temp of line 1 of card field "efforts" into effort
  259.     end if
  260.     if effort is "normal" then
  261.       put item temp of line 2 of card field "efforts" into effort
  262.     end if
  263.     if effort is "light" then
  264.       put item temp of line 3 of card field "efforts" into effort
  265.     end if
  266.   end if
  267.   if weather is "cloudy" then
  268.     if effort is "heavy" then
  269.       put item temp of line 4 of card field "efforts" into effort
  270.     end if
  271.     if effort is "normal" then
  272.       put item temp of line 5 of card field "efforts" into effort
  273.     end if
  274.     if effort is "light" then
  275.       put item temp of line 6 of card field "efforts" into effort
  276.     end if
  277.   end if
  278.  
  279.   IF OPENBASE >0 THEN
  280.     repeat with i = 1 to 6
  281.       set icon of button id i of card "map" to 27637
  282.     end repeat
  283.   end if
  284.  
  285. end doit
  286.  
  287.  
  288.  
  289.  
  290.  
  291.  
  292. -- part 13 (field)
  293. -- low flags: 80
  294. -- high flags: 4001
  295. -- rect: left=195 top=188 right=309 bottom=414
  296. -- title width / last selected line: 0
  297. -- icon id / first selected line: 0 / 0
  298. -- text alignment: 0
  299. -- font id: 20
  300. -- text size: 10
  301. -- style flags: 0
  302. -- line height: 11
  303. -- part name: newsCopy
  304.  
  305.  
  306. -- part 15 (field)
  307. -- low flags: 81
  308. -- high flags: 4001
  309. -- rect: left=156 top=120 right=194 bottom=385
  310. -- title width / last selected line: 0
  311. -- icon id / first selected line: 0 / 0
  312. -- text alignment: 0
  313. -- font id: 3
  314. -- text size: 9
  315. -- style flags: 0
  316. -- line height: 11
  317. -- part name: efforts
  318.  
  319.  
  320. -- part contents for card part 6
  321. ----- text -----
  322. CLEAR
  323.  
  324. -- part contents for card part 9
  325. ----- text -----
  326. MINOR
  327.  
  328. -- part contents for card part 1
  329. ----- text -----
  330. Headquarters Fighter Command
  331. Bentley Priory
  332. Stanmore
  333. Mdsx
  334.  
  335. To:
  336. Air Officer Commanding
  337. No. 11 Group
  338.  
  339.     Effective tomorrow morning the following squadrons are reassigned:
  340.  No.229 Spitfire Squadron to Northolt
  341.  
  342.  
  343. -- part contents for card part 13
  344. ----- text -----
  345. Overcast skies throughout Southeast England today brought out the enemy in force. A major raid over Tangmere resulted in many casualties and heavy damage to the airbase. Elsewhere things were quiet
  346. hampered Hitlers' efforts some.   minor  a few slight
  347. brought the nation some relief.   major  many heavy
  348. Sunny weather                            
  349. Thunderstorms
  350. Overcast skies
  351.  
  352. -- part contents for card part 5
  353. ----- text -----
  354. Sept 9 1940
  355.  
  356. -- part contents for card part 15
  357. ----- text -----
  358. HEAVY,NORMAL,NORMAL,NORMAL,LIGHT,LIGHT
  359. HEAVY,HEAVY,HEAVY,NORMAL,NORMAL,LIGHT
  360. HEAVY,HEAVY,HEAVY,HEAVY,NORMAL,NORMAL
  361. NORMAL,NORMAL,LIGHT,LIGHT,LIGHT,LIGHT
  362. HEAVY,NORMAL,NORMAL,NORMAL,LIGHT,LIGHT
  363. HEAVY,HEAVY,NORMAL,NORMAL,LIGHT,LIGHT
  364.  
  365. -- part contents for card part 8
  366. ----- text -----
  367. CANTERBURY BLITZED
  368.  
  369. -- part contents for card part 11
  370. ----- text -----
  371. no
  372.  
  373. -- part contents for card part 10
  374. ----- text -----
  375. no